home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / glf_8000.asc < prev    next >
Text File  |  1994-03-01  |  2KB  |  53 lines
  1.  
  2.                      PROGRAMMES  FX   CASIO
  3.      
  4.                            8000G - 8500G
  5.  
  6.  FICHE Nø 14                              PAR PIERRE HOUSSIN
  7.  
  8. Premier programme (prog 0)
  9.  
  10. Mcl : Deg : Range 1->95,0,1->63,0
  11. Lbl 0 : Isz E : Int 20Ran#+20->I : Int 21Ran#+20->J
  12. Int 13Ran#+20->S : Int 10Ran#+20->T
  13. Lbl 4 : Int 68Ran#+26->A : Int 10Ran#+52->B
  14. I<=A => A<=I+S => J<=B => B<=J+T => Goto 4
  15. Plot A,B : 0->H : 12->C : 25->D
  16. Lbl 1 : Cls : Prog 1 : Plot A,B : Plot C,DÝ
  17. X->C : Y->D : Isz H : H>=20 => Goto 4
  18. "ANGLE"?->Z : "FORCE"?->L
  19. Lbl 2 : L-1->L : L<0 => Goto 1
  20. sin Z->F : cos Z->G : C+G->C : D+F->D : Plot C,D
  21. C>94 => Goto 5 : D>62 => Goto 5 : C<2 => Goto 5 : D>11 => Goto 5
  22. A=C => B=D => Goto 6
  23. Lbl 7 : C>=I => Goto 3 : L>=0 => Goto 2 : Goto 1
  24. Lbl 3 : I<=C => C<=I+J => J<=D => D<=J+T => Goto 5 : Goto 2
  25. Lbl 5 : "PERDU=" : PÝ        Prog 0
  26. Lbl 6 : L>5 => Goto 7 : P+S-H->P : "GAGNE=" : PÝ  
  27. E<12 => Goto 0
  28. " FIN DU GREEN   TOTAL:" : PÝ
  29. Prog 0
  30.  
  31.  
  32. Second programme (prog 1)
  33.  
  34. Plot I,J : Plot I+S,J : Line : Plot I+S,J+T : Line
  35. Plot I,J+T : Line : Plot I,J : Line
  36. Plot 1,10 : Plot 95,10 : Line : Plot 95,63 : Line
  37. Plot 1,63 : Line : Plot 1,10 : Line  
  38.  
  39. longueur totale : 704 pas
  40.  
  41. symboles utilis‚s:  pi … remplacer par le vrai signe de pi
  42.                      Ý … remplacer par le triangle au dessus de
  43.                        la touche ":"
  44.                     <> …  remplacer par diff‚rent (= barr‚)
  45.                     <=, >= … remplacer respectivement par 
  46.                            inf‚rieur ou ‚gal et sup‚rieur ou ‚gal
  47.  
  48.  Vous pouvez taper ces deux programmes dans la zone fichiers de 
  49. votre machine pour cela nomez les respectivement "GOLF" et 
  50. "GOLF1", puis remplacez les instructions Prog 0 et Prog 1 par les 
  51. instructions Prog "GOLF" et Prog "GOLF1".
  52.  
  53.